10 REM ***  ARPEGGIO (AKKORD-SIM.)
11 :
12 :SP=1     :REM ARPEGGIO-ZEIT(TIME)
13 :A1=7492  :REM NOTE 1     (ARP #1)
14 :A2=8911  :REM NOTE 2     (ARP #2)
15 :A3=11227 :REM NOTE 3     (ARP #3)
16 :A4=14986 :REM NOTE 4     (ARP #4)
17 :M=0      :REM 3 (=0) ODER 4 (=1) FINGER ACC.
19 :
20 REM * TON EINSCHALTEN
21 :
22 S=54272:POKES+4,8:POKES+24,15 :REM  VOLLE LAUTSTAERKE
23 POKES+6,255:POKES+5,0:POKES+4,33 :REM  ADSR UND SAEGEZAHN-WELLENFORM SETZEN
24 FORI=0TO10:NEXT:POKES+4,32 :REM  TON AUF AUSKLINGEN SETZEN
29 :
40 REM * ARPEGGIO !
41 :
43 G=G+1 :REM  ZAEHLER FUER ARPEGGIO-NUMMER ERHOEHEN
44 IFG=SP*1THENPOKES,A1AND255:POKES+1,A1/256 :REM 1.TONHOEHE POKEN (ARP.#1)
45 IFG=SP*2THENPOKES,A2AND255:POKES+1,A2/256 :REM 2.TONHOEHE POKEN (ARP.#2)
46 IFG=SP*3THENPOKES,A3AND255:POKES+1,A3/256:IFM=0THENG=0:REM 3.TON
47 IFG=SP*4THENPOKES,A4AND255:POKES+1,A4/256:G=0:REM 4.TON UND ARP. NEU STARTEN
60 GOTO43 :REM NOCHMAL